home *** CD-ROM | disk | FTP | other *** search
/ PC Joker 1996 October / PC Joker 96-10.iso / menu / getwin.pas < prev    next >
Pascal/Delphi Source File  |  1996-03-19  |  457b  |  20 lines
  1. uses dos;
  2. {$M 4024,0,10240}
  3. var
  4.    version      :text;
  5.    i            :byte;
  6.    zeile        :String;
  7.  
  8. begin
  9.   SwapVectors;
  10.     Exec(GetEnv('COMSPEC'),'/C VER >C:\version.txt');
  11.   SwapVectors;
  12.   assign(Version,'C:\VERSION.TXT');
  13.   reset(version);
  14.   readln(version,zeile);
  15.   readln(version,zeile);
  16.   close(version);
  17.   for i:=1 to length(zeile) do zeile[i]:=UpCase(Zeile[i]);
  18.   if Pos('WINDOWS 95',Zeile)>0 then halt(2) else halt(1);
  19. end.
  20.